home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / SortBlk.bed < prev    next >
Text File  |  1996-09-26  |  1KB  |  64 lines
  1. /*
  2. ** $VER: SortBlk.bed 1.0 (03.01.96)
  3. **
  4. ** Sort the currently selected block, or the whole document if no block
  5. ** is selected.
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. SetDisplayLock ON
  11. SetInputLock ON
  12.  
  13. GetBlkInfo
  14. PARSE VAR RESULT mode .
  15.  
  16. TaskID = Pragma('ID')
  17.  
  18. SetStatusBar "Sorting..."
  19.  
  20. IF mode = ON THEN DO
  21.  
  22.     SaveClip QUIET NOICON NOBACKUP 'T:OldClip-' || TaskID
  23.  
  24.     CutBlk
  25.     SaveClip QUIET NOICON NOBACKUP 'T:SortBlk_pre-' || TaskID
  26.     ADDRESS COMMAND 'C:Sort T:SortBlk_pre-' || TaskID || ' T:SortBlk_post-' || TaskID
  27.     OpenClip "T:SortBlk_post-" || TaskID
  28.  
  29.     MarkBlk
  30.     PasteClip
  31.  
  32.     OpenClip 'T:OldClip-' || TaskID
  33.  
  34. END; ELSE DO
  35.     GetCursorPos
  36.     PARSE VAR RESULT y x .
  37.  
  38.     GetFilePath
  39.     path = RESULT
  40.  
  41.     SaveFileAs QUIET NOICON NOBACKUP 'T:SortBlk_pre-' || TaskID
  42.     ADDRESS COMMAND 'C:Sort T:SortBlk_pre-' || TaskID || ' T:SortBlk_post-' || TaskID
  43.     OpenFile QUIET 'T:SortBlk_post-' || TaskID
  44.     SetFilePath path
  45.  
  46.     Insert '" "'    /* cause the modified flag to be set */
  47.     MoveLeft
  48.     Delete
  49.  
  50.     Move y x
  51. END
  52.  
  53. IF ~Show(L,'rexxsupport.library') THEN DO
  54.     AddLib('rexxsupport.library',0,-30)
  55. END;
  56.  
  57. Delete("T:SortBlk_pre-" || TaskID)
  58. Delete("T:SortBlk_post-" || TaskID)
  59. Delete("T:OldClip-" || TaskID)
  60.  
  61.  
  62. SetDisplayLock OFF
  63. SetInputLock OFF
  64.